home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 May
/
1984-05.d64
/
step lister_vic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
29 lines
10 tm = peek(56) * 256 + peek(55)
15 tm = tm - 242
20 lsb= (tm/256-int(tm/256)) * 256
25 msb = int(tm/256)
30 poke 55,lsb: poke 56,msb
35 poke 253,lsb+13: poke 254,msb
40 for i = tm to tm + 241
50 read a: poke i,a: chk = chk + a: next i
60 x = 828: for i = x to x + 23
70 read a: poke i,a: chk = chk + a: next i
80 if chk <> 33283 then print "data error": end
90 print "sys" tm "to initiate": new
100 data162,0,189,60,3,149,115,232,224,23,208,246,0,201,64,240,22,234
120 data234,234,234,201,58,176,10,201,32,240,7,56,233,48,56,233,208,96
140 data76,115,0,160,0,185,0,2,201,64,208,243,200,185,0,2,201,0,240,9
160 data201,45,208,244,169,171,153,0,2,169,1,133,122,160,1,24,185,0,2
180 data32,107,201,32,19,198,160,0,32,121,0,32,107,201,165,20,5,21,208
200 data6,169,255,133,20,133,21,160,1,132,198,160,1,132,15,177,95,240
210 data85,32,44,200,32,215,202,134,1,132,2,173,198,0,240,251,169,0
240 data141,198,0,166,1,164,2,200,177,95,170,200,177,95,197,21,208,4,228,20
250 data240,2,176,44,132,73,32,205,221,169,32,164,73,41,127,32,71,203
270 data201,34,208,6,165,15,73,255,133,15,200,240,17,177,95,208,16
290 data168,177,95,170,200,177,95,134,95,133,96,208,163,76,116,196,16
310 data218,201,255,240,214,36,15,48,210,56,233,127,170,132,73,160,255,202
320 data240,8,200,185,158,192,16,250,48,245,200,185,158,192,48,181,32
350 data71,203,208,245,0,230,122,208,2,230,123,173,0,2,201,58,240,10
360 data201,32,240,239,108,253,0
370 data234,234,234,96